home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr47 / wasm223.zip / STORE.ASM < prev    next >
Assembly Source File  |  1993-05-04  |  1KB  |  55 lines
  1. ;***************************************
  2. ; This demo OBJ module defines routines
  3. ; to load and store a value to and from
  4. ; a local variable.
  5. ;
  6. ; Defines:
  7. ;
  8. ;   Store  store a 16 bit value
  9. ;   Load   load a 16 bit value
  10. ;
  11. ; Assemble as:
  12. ;
  13. ;   WASM test test.obj
  14.  
  15.         INCLUDE 'object.inc'
  16.  
  17.         INIT    'TEST.ASM', 'WASM', 'CODE', ALIGN_PARA + COMBINE_PRIVATE
  18.  
  19.         PUBLIC  Store, 'STORE'
  20.         PUBLIC  Load, 'LOAD'
  21.  
  22.         BEGIN
  23.  
  24. ;--- store routine
  25.  
  26. Store   PROC    FAR
  27.         push    bp
  28.         mov     bp, sp          ;stack
  29.         push    ds
  30.         mov     ax, cs          ;load data segment
  31.         mov     ds, ax          ;
  32.         mov     ax, [bp+6]      ;get value from stack
  33.         mov     storage, ax     ;save it
  34.         pop     ds
  35.         pop     bp
  36.         ret     2
  37.         ENDP
  38.  
  39. ;--- load routine
  40.  
  41. Load    PROC    FAR
  42.         push    ds
  43.         mov     ax, cs          ;load data segment
  44.         mov     ds, ax          ;
  45.         mov     ax, storage     ;return value
  46.         pop     ds
  47.         ret
  48.         ENDP
  49.  
  50. ;--- storage variable
  51.  
  52. storage DW      ?               ;variable
  53.  
  54.         END
  55.